﻿<%
Dim conn
Set conn = Server.CreateObject("ADODB.CONNECTION")
db = "Provider=Microsoft.Jet.OLEDB.4.0;data source="&Server.MapPath("data\data.db")
'response.write db
'response.end
conn.Open db
%>
